home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / mk_write.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-03  |  2.6 KB  |  106 lines
  1. 819  <DEFDBL   MakeWrite - Make a file a MacWrite document
  2. 826  IMPDEFDBL
  3. 859  <UNK! {00FC}>DEFDBL   Version 1.00 - 6-Apr-84
  4. 1187  <UNK! {0006}>DEFDBL   Dennis F. Brothers - Compuserve 70065,172 - MCI Mail DBROTHERS
  5. 1194  <UNK! {0010}>DEFDBL
  6. 1256  9DEFDBL   Copyright (c) 1984 - Brothers Associates, Wayland MA
  7. 1067  $DEFDBL   Permission is hereby granted for personal, non-commercial
  8. 1133  .DEFDBL   reproduction and use of this program, provided that this
  9. 1174  8DEFDBL   notice is included in any copy.
  10. 1181  BDEFDBL
  11. 1188  LDEFDBL
  12. 2012  USRDEFDBL Pre-allocate all variables, so arrays don't move
  13. 2019  VARPTRDEFDBL
  14. 2031  <0xE4!><UNK! {00F8}>READ A^Z
  15. 1807  AND<UNK! {00F8}>GOSUB GETFICODE(25): GETFI!-0
  16. 1839  <UNK! {00F8}><UNK! {00F8}>GOSUB SETFICODE(25): SETFI!-0
  17. 2129  <UNK! {0002}><UNK! {00F8}>GOSUB PARAMLIST(79<UNK! {00F7}>2): PARAM!-0
  18. 2153  &H2446-"": FL-0: FP!-0
  19. 2165  5TA$-""
  20. 2179   I-0: A-0
  21. 2186  *DEFDBL
  22. 2193  4DEFDBL
  23. 2984  OPTIONDEFDBL Set up pointers
  24. 2991  BSAVEDEFDBL
  25. 3003  TOWAIT 6912X
  26. 3057  STRING$GETFI!-<UNK! {00F8}>CALL(GETFICODE(0)): SETFI!-<UNK! {00F8}>CALL(SETFICODE(0))
  27. 2830  <0xE0!>PARAM!-<UNK! {00F8}>CALL(PARAMLIST(0))
  28. 2846  -FP!-<UNK! {00F8}>CALL(F$)
  29. 2853  \DEFDBL
  30. 2860  <UNK! {FEAF}>
  31. 3906  WIDTHDEFDBL  Start program
  32. 3913  AUTODEFDBL
  33. 3927  <0xB4!><UNK! {00F8}>NEXT:DEFSTR:DEFSTR:DEFSTR
  34. 3998  SAVEDEFSTR  "MakeWrite - V1.00 -  Copyright (c) 1984, Brothers Associates"
  35. 4007  SCREENDEFSTR:DEFSTR
  36. 4081  SPC(DEFSTR "    This program will change a text file to a MacWrite document."
  37. 4091  POINTDEFSTR: DEFSTR
  38. 3842  >DEFDBL
  39. 3849  XORDEFDBL
  40. 4897  LETDEFDBL  Get file specs.
  41. 4904  CLEARDEFDBL
  42. 4913  OUTDEFSTR:DEFSTR
  43. 4966  EDIT<0x9F!> <0x9A!> "File to be Changed (Return to Quit): ", F$
  44. 4984  LINEPOKE F$-"" > <UNK! {00F8}>DEFDBL
  45. 4991  OPENDEFDBL
  46. 4998  SOUNDDEFDBL
  47. 6045  pDEFDBL Change the file
  48. 6052  zDEFDBL
  49. 6072  DATATA$-"TEXTMACA"
  50. 6086  RETURNFL-LPRINT(F$)
  51. 6103  POKEF$-INPUT(FL)/F$
  52. 6142  TRONNEW I-0 <0xE5!> 79<UNK! {00F7}>2: PARAMLIST(I)-0: DELETE I
  53. 5914  DEFSTR<UNK! {00F8}>SWAP PARAM!/19,<UNK! {00F8}>TROFF(FP!/2)
  54. 5942  <0xB6!><UNK! {00F8}>SWAP PARAM!/20,<UNK! {00F8}>TROFF(FP!/3)
  55. 5970  CLS<UNK! {00F8}>SWAP PARAM!/21,<UNK! {00F8}>TROFF(FP!/4)
  56. 5992  LOCATENEXT GETFI!(PARAM!)
  57. 6027  ERLPOKE PARAMLIST(16<UNK! {00F7}>2)*+0 > DEF 6144$
  58. 6042  INKEY$NEW I-1 <0xE5!> 8
  59. 6076  <<UNK! {00F8}>SWAP PARAM!/31/I,END(ERASE(TA$,I,1))
  60. 6085  IMPDELETE I
  61. 6107  <UNK! {00FC}>NEXT SETFI!(PARAM!)
  62. 6398  <UNK! {0006}>POKE PARAMLIST(16<UNK! {00F7}>2)*+0 > DEF 6144B
  63. 6154  <UNK! {0010}>DEF 4864LET
  64. 6161  9DEFDBL
  65. 6219  $DEFSTR INPUT(7);"??? Can't access that file - try again. ???"
  66. 6231  .DEF 4864LET
  67. 6238  8DEFDBL
  68. 6296  BDEFSTR INPUT(7);"??? Can't change that file - try again. ???"
  69. 6308  LDEF 4864LET
  70. 6315  VDEFDBL
  71. 6322  `DEFDBL
  72. 7125  XDEFDBL Set up GetFileInfo ROM call
  73. 7132  bDEFDBL
  74. 7145  l<UNK! {00F8}>RESUME 6912RESUME
  75. 7154  vI-0
  76. 6923  <UNK! {0080}>DEFSNG A: GETFICODE(I)-A
  77. 6934  RUNI-I/1
  78. 6956  NEWPOKE A*+^1 > DEF 6912<UNK! {0080}>
  79. 6963  LLISTDEFDBL
  80. 7027  RESUMEDEFDBL Machine language code to invoke GetFileInfo ROM function
  81. 7034  WENDDEFDBL
  82. 7104  LOADGOSUB &H4E56, &HFFF8, &H48EE, &H0101, &HFFF8, &H206E, &H0008, &HA00C
  83. 7150  PSETGOSUB &H4CEE, &H0101, &HFFF8, &H4E5E, &H4E75
  84. 7160  USRGOSUB -1
  85. 7167  VARPTRDEFDBL
  86. 6918  <0xE4!>DEFDBL
  87. 6953  ANDDEFDBL Set up SetFileInfo ROM call
  88. 6960  <UNK! {00F8}>DEFDBL
  89. 7229  <UNK! {0002}><UNK! {00F8}>RESUME 7168>
  90. 7238  &HEA490
  91. 7263  5DEFSNG A: SETFICODE(I)-A
  92. 7274   I-I/1
  93. 7296  *POKE A*+^1 > DEF 71685
  94. 7303  4DEFDBL
  95. 7367  >DEFDBL Machine language code to invoke SetFileInfo ROM function
  96. 7374  HDEFDBL
  97. 7188  RGOSUB &H4E56, &HFFF8, &H48EE, &H0101, &HFFF8, &H206E, &H0008, &HA00D
  98. 7234  \GOSUB &H4CEE, &H0101, &HFFF8, &H4E5E, &H4E75
  99. 7244  fGOSUB -1
  100. 7251  pDEFDBL
  101. 7258  zDEFDBL
  102. 7265  DATALINE
  103. 7272  RETURNDEFDBL
  104. 7279  POKEDEFDBL
  105. 7287  TRON<UNK! {00F8}>REM
  106.